home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / RESCTRL / C.I < prev    next >
Encoding:
Modula Implementation  |  1989-11-04  |  621 b   |  32 lines
  1. IMPLEMENTATION MODULE C;
  2.  
  3. FROM MOSGlobals IMPORT MemArea;
  4.  
  5. FROM ResCtrl IMPORT RemovalCarrier, CatchRemoval;
  6.  
  7. IMPORT Terminal;
  8.  
  9. VAR wait: CHAR;
  10.     rCarrier: RemovalCarrier;
  11.     wsp: MemArea;
  12.     
  13. PROCEDURE c;
  14.   BEGIN
  15.     Terminal.WriteString( 'Hallo hier ist Modul C');
  16.     Terminal.WriteLn;
  17.   END c;
  18.   
  19. PROCEDURE Removal;
  20.   BEGIN
  21.     Terminal.WriteString( 'C.Removal');
  22.     Terminal.WriteLn;
  23.     Terminal.Read( wait)
  24.   END Removal;
  25.   
  26. BEGIN
  27.   Terminal.WriteString( 'Modulrumpf von C wird ausgeführt');
  28.   Terminal.WriteLn;
  29.   wsp.bottom:= 0;
  30.   CatchRemoval( rCarrier, Removal, wsp);
  31. END C.
  32.